home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 June / Ahoy_Magazine_87-06_1987_Double_L.d64 / Cave Of Ice Ape (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  61 lines
  1. 10 rem    cave boot--by jc hilty
  2. 11 poke53281,0:poke53280,0:gosub50
  3. 12 forx=49154to49320:reada:pokex,a:next
  4. 13 poke147,0:sys57812"ape title",8,1:sys62631:sys49154
  5. 14 s=54272:forx=0to24:pokes+x,0:next:pokes+24,15:pokes+6,240
  6. 15 readn1,n2,dr:ifn1=0then24
  7. 16 pokes+1,n1:pokes,n2:pokes+4,17:forz=1todr/2:nextz:pokes+4,16
  8. 17 fort=0to40:nextt:goto15
  9. 24 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4
  10. 25 poke53270,peek(53270)and239:poke53281,0:poke646,0
  11. 26 printchr$(147):print:print
  12. 27 print"load"chr$(34)"caveape"chr$(34)",8":print:print:print:print
  13. 28 print"run":print"loading program....[144]":printchr$(19):poke198,2
  14. 29 poke631,13:poke632,13
  15. 30 end
  16. 50 print"[147]   [146]  ":print"     [146][154]our search was finally over...."
  17. 51 printtab(3)" ":printtab(7)"[154]a few months ago your true"
  18. 52 printtab(7)"love,maxine,was on a trip to"
  19. 53 printtab(7)"the himalayan mountains. she was"
  20. 54 printtab(7)"never heard from again. you"
  21. 55 printtab(7)"have searched for her ever"
  22. 56 printtab(7)"since. one day you heard a"
  23. 57 printtab(7)"scream coming from a cave."
  24. 58 printtab(7)"the snow was blowing and the"
  25. 59 printtab(7)"temperature below zero,but"
  26. 60 printtab(7)"you had to look into the cave.":print:print
  27. 61 printtab(7)"there was maxine-being held"
  28. 62 printtab(7)"prisoner by a large ape like"
  29. 63 printtab(7)"creature!":print:print
  30. 64 printtab(7)"you had entered the...."
  31. 65 return
  32. 100 data 173,17,208,41,239,9,32,141,17,208,173,22,208,41,223,9
  33. 101 data 16,141,22,208,173,24,208,41,240,9,8,141,24,208,76,43
  34. 102 data 192,173,17,208,41,239,141,17,208,162,127,160,64,134,252,132
  35. 103 data 251,162,4,160,0,134,254,132,253,162,131,160,39,32,127,192
  36. 104 data 162,131,160,40,134,252,132,251,162,216,160,0,134,254,132,253
  37. 105 data 162,135,160,15,32,127,192,173,16,135,141,33,208,162,96,160
  38. 106 data 0,134,252,132,251,162,32,160,0,134,254,132,253,162,127,160
  39. 107 data 63,32,127,192,173,17,208,9,16,141,17,208,96,142,1,192
  40. 108 data 140,0,192,160,0,177,251,145,253,165,252,205,1,192,208,8
  41. 109 data 165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253
  42. 110 data 208,227,230,254,76,135,192
  43. 120 rem    song data
  44. 130 data 15,122,250,12,73,250,15,122,250,12,73,250
  45. 132 data 13,201,250,15,122,250,13,201,250,13,201,250
  46. 134 data 15,122,250,12,73,250,15,122,250,12,73,250
  47. 136 data 15,122,250,13,201,250,13,201,250,13,201,250
  48. 138 data 15,122,250,12,73,250,15,122,250,12,73,250
  49. 140 data 13,201,250,15,122,250,13,201,250,13,201,250
  50. 142 data 12,73,250,15,122,250,12,73,250,15,122,250
  51. 144 data 13,201,250,12,73,250,12,73,250,12,73,250
  52. 146 data 15,122,250,12,73,250,15,122,250,12,73,250
  53. 148 data 13,201,250,15,122,250,13,201,250,13,201,250
  54. 150 data 15,122,250,12,73,250,15,122,250,12,73,250
  55. 152 data 15,122,250,13,201,250,13,201,250,13,201,250
  56. 154 data 15,122,250,12,73,250,15,122,250,12,73,250
  57. 156 data 13,201,250,15,122,250,13,201,250,13,201,250
  58. 158 data 12,73,250,15,122,250,12,73,250,15,122,250
  59. 160 data 13,201,250,12,73,250,12,73,250,12,73,1000
  60. 500 data 0,0,0
  61.